home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / e / eiffel.lha / flc / source / ANY / is_equal.s < prev    next >
Encoding:
Text File  |  1996-01-27  |  472 b   |  30 lines
  1.  
  2. **
  3. ** is_equal (other:like Current):BOOLEAN
  4. **
  5. ** Copyright © 1995, Guichard Damien.
  6. **
  7.  
  8.         include globals.i
  9.  
  10. is_equal
  11.         move.l  (-$4,a2),d0
  12.         lsr.l   #2,d0
  13.         beq.s   .yes
  14.         sub.w   #1,d0
  15.         move.l  a1,a2
  16.         add.l   #4,a2
  17.         move.l  ($4,sp),a6
  18.         add.l   #4,a6
  19.  
  20. .loop   cmpm.l  (a2)+,(a6)+
  21.         dbne    d0,.loop
  22.         bne.s   .no
  23.  
  24. .yes    move.l  #-1,d0
  25.         rtd     #4
  26.  
  27. .no     move.l  #0,d0
  28.         rtd     #4
  29.  
  30.